vb "上一步"的问题

来源：百度知道 编辑：UC知道 时间：2024/09/24 14:36:46
在form1上选择了“A”，程序自动跳到form2，form2上的label1控件显示“您上一步选择的是A”。现在要由form2通过command“上一步”返回到form1，重新选择，选择了“B”，程序自动跳到form2后，form2的label1控制依然显示“您上一步选择的是A”，怎么办？

求教各位高手。
但不想添加command或form_load()，来个 unload me.show什么的。

我用了listbox控件，没用command
代码
Private Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
End Sub

Private Sub List1_Click()
Dim u As Integer

For u = 0 To List1.ListCount - 1
If List1.Selected(u) Then '如果选定了第u项

Call List1_ItemCheck(u) '调用在前面打对号的过程

Exit Sub
End If
Next

End Sub

Private Sub List1_ItemCheck(Item As Integer)
If List1.ListIndex = 0 Then

Form2.Caption = "您上一步选择了A"
Else
Form2.Caption = "您上一步选择了B"
End If
Form2.Show

End Sub
在form2中，添加command控件，
代码
Private Sub Command1_Click()
Unload Me

End Sub
运行结果符合楼主要求，希望对你有帮助。

不用unload 或者show，你怎么能够返回form1哦

Private Sub Command1_Click()
Form2.Label1 = "您上一步选择了A"
Form2.Show
Unload Me

End Sub

Private Sub Command2_C